***** Racialization Experiment Replication Do File

ologit DavisCN i.BlTtmt, or
listcoef, std help
ologit Hist i.BlTtmt, or
listcoef, std help
ologit Free i.BlTtmt, or
listcoef, std help

ologit DavisCN i.BlTtmt##c.BlAm, or
listcoef, std help 
sum DavisCN, detail
margins, predict(outcome(6)) at (BlTtmt = (0 1) BlAm = (2.76 4.44 6.12) ) 
marginsplot, title("") xtitle("Treatment") xlabel(0 "White" 1 "Black") ytitle("Prob. High Support")   legend (order(1 "Low" 2 "Avg." 3 "High")) legend(pos(10) subtitle("Bl.Inclusion"))

ologit Hist i.BlTtmt##c.BlAm, or
listcoef, std help
sum Hist, detail
margins, predict(outcome(3)) at (BlTtmt = (0 1) BlAm = (2.76 4.44 6.12) ) 
marginsplot,  title("") xtitle("Treatment") xlabel(0 "White" 1 "Black") ytitle("Prob. High Support")   legend (order(1 "Low" 2 "Avg." 3 "High")) legend(pos(10) subtitle("Bl.Inclusion"))

ologit Free i.BlTtmt##c.BlAm, or
listcoef, std help
sum Free, detail
margins, predict(outcome(3)) at (BlTtmt = (0 1) BlAm = (2.76 4.44 6.12) ) 
marginsplot,  title("") xtitle("Treatment") xlabel(0 "White" 1 "Black") ytitle("Prob. High Support")   legend (order(1 "Low" 2 "Avg." 3 "High")) legend(pos(10) subtitle("Bl.Inclusion"))


